home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 18 / Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ende (.txt) next >
Commodore BASIC  |  2023-02-26  |  891b  |  23 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147)
  2. 15 leta=(NULL):forb=0to9*astep2*a/20:print"*  "
  3. 20 letc=10*(sin(b)+1.5):letd=int(c+.9)
  4. 25 :poke646,int(rnd(1)*15)+1:printtab(d);"   ende":printtab(37)"[145][145][145]  *":nextb
  5. 30 poke56325,0:
  6. 35 print"[147]  *********                **           ";
  7. 40 print"   **    **                **           ";
  8. 45 print"   **                      **           ";
  9. 50 print"   **                      **           ";
  10. 55 print"   *****    *** ****  *******  *******  ";
  11. 60 print"   **        ***  **  **   **  **   **  ";
  12. 65 print"   **        **   **  **   **  *******  ";
  13. 70 print"   **    **  **   **  **   **  **       ";
  14. 75 print"  *********  **   **  ******** *******  ";
  15. 80 poke56325,58:ti$="000003":wait161,1
  16. 85 print"[147][151]";:print"";
  17. 90 reada$:ifa$="0"then110
  18. 95 printtab((15 -len(a$))/2)a$:goto90
  19. 100 data gemacht von,l u k i a n,===========
  20. 105 data im april 95,0
  21. 110 poke56325,1:fori=0to150:next     :print"[155]  "
  22. 115 poke56325,58:ti$="000004":wait161,1:sys58253
  23.